home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ Gku 1.xpl < prev    next >
Text File  |  1999-09-15  |  2KB  |  91 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Internet\Instant Messaging\Gku"
  5. "NAME"="Message Appearance Settings"
  6. "VERSION"="2.02"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display messages bold"
  9. "TEXT 2"="Display messages italicized"
  10. "TEXT 3"="Display messages underlined"
  11. "TEXT 4"="Display messages strikethrough"
  12. "DESCRIPTION 1"="Some options for the appearance of the messages in Gku."
  13. "DESCRIPTION 2"="All options are by default disabled."
  14. "DESCRIPTION 3"="Gku may be obtained at http://lockergnome.virtualave.net"
  15. "AUTHOR"="Xteq Systems"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  18. "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
  19. "COMMENT 3"="Thanks also to Vex, the maker of Gku."
  20.  
  21. sFile=""
  22. sSec="Messages"
  23.  
  24. sV1="msgBold"
  25. sV2="msgItalic"
  26. sV3="msgUnderline"
  27. sV4="msgStrikeThru"
  28.  
  29. Sub GetGKUFile
  30.    s=iniReadValue("WIN.INI","GKU","InstallDir")
  31.    sFile=s & "\gku.ini"
  32. End Sub
  33.  
  34. Sub Plugin_Initialize 
  35.  Call GetGkuFile
  36.  
  37.  If FileExists(sFile) then
  38.  
  39.     i=IniReadValue(sFile,sSec,sV1)
  40.     if i="True" then SetUiElement 1,true
  41.  
  42.     i=IniReadValue(sFile,sSec,sV2)
  43.     if i="True" then SetUiElement 2,true
  44.  
  45.     i=IniReadValue(sFile,sSec,sV3)
  46.     if i="True" then SetUiElement 3,true
  47.  
  48.     i=IniReadValue(sFile,sSec,sV4)
  49.     if i="True" then SetUiElement 4,true
  50.  
  51.  else
  52.     Call Disable()
  53.  End if
  54.  
  55. End Sub
  56.  
  57.  
  58. Sub Plugin_CheckData(ElementIndex)
  59. End Sub
  60.  
  61.  
  62.  
  63. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  64.  s="False"
  65.  b=GetUIElement(1)
  66.  if b=true then s="True"
  67.  Call iniWriteValue(sFile,sSec,sV1,s)
  68.  
  69.  s="False"
  70.  b=GetUIElement(2)
  71.  if b=true then s="True"
  72.  Call iniWriteValue(sFile,sSec,sV2,s)
  73.  
  74.  s="False"
  75.  b=GetUIElement(3)
  76.  if b=true then s="True"
  77.  Call iniWriteValue(sFile,sSec,sV3,s)
  78.  
  79.  s="False"
  80.  b=GetUIElement(4)
  81.  if b=true then s="True"
  82.  Call iniWriteValue(sFile,sSec,sV4,s)
  83. End Sub
  84.  
  85.  
  86. Sub Plugin_Terminate 
  87. End Sub
  88.  
  89.  
  90.  
  91.